home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / GWAda 1.5.1 / GW-Ada⁄Ed-MacProgs / GWU Demos / room.ads < prev    next >
Encoding:
Text File  |  1993-02-03  |  426 b   |  20 lines  |  [TEXT/????]
  1. --::::::::::
  2. --room.ads
  3. --::::::::::
  4. WITH Chop;
  5. WITH Phil;
  6. PACKAGE Room IS
  7.  
  8.   Table_Size: CONSTANT := 5;
  9.   SUBTYPE Table_Type IS Positive RANGE 1..Table_Size;
  10.  
  11.   Sticks:     ARRAY(Table_Type) OF Chop.Stick;
  12.  
  13.   TASK Head_Waiter IS
  14.     ENTRY Open_The_Room;
  15.     ENTRY Report_State(Which_Phil: Table_Type;
  16.                        State: Phil.States;
  17.                        How_Long: Natural := 0);
  18.   END Head_Waiter;
  19.  
  20. END Room;